home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Include / Gadgets / ColorWheel.i next >
Encoding:
Text File  |  1997-05-06  |  2.0 KB  |  59 lines
  1.    {   Definitions for the colorwheel BOOPSI class     }
  2.  
  3. {***************************************************************************}
  4.  
  5. {$I "Include:Utility/TagItem.i"}
  6.  
  7. {***************************************************************************}
  8.  
  9. Type
  10. { For use with the WHEEL_HSB tag }
  11.  ColorWheelHSB = Record
  12.     cw_Hue,
  13.     cw_Saturation,
  14.     cw_Brightness  : Integer;
  15.  end;
  16.  ColorWheelHSBPtr = ^ColorWheelHSB;
  17.  
  18. { For use with the WHEEL_RGB tag }
  19.  ColorWheelRGB = Record
  20.     cw_Red,
  21.     cw_Green,
  22.     cw_Blue  : Integer;
  23.  end;
  24.  ColorWheelRGBPtr = ^ColorWheelRGB;
  25.  
  26.  
  27. {***************************************************************************}
  28.  
  29. const
  30.     WHEEL_Dummy          = (TAG_USER+$04000000);
  31.     WHEEL_Hue            = (WHEEL_Dummy+1) ;  { set/get Hue              }
  32.     WHEEL_Saturation     = (WHEEL_Dummy+2) ;  { set/get Saturation        }
  33.     WHEEL_Brightness     = (WHEEL_Dummy+3) ;  { set/get Brightness        }
  34.     WHEEL_HSB            = (WHEEL_Dummy+4) ;  { set/get ColorWheelHSB     }
  35.     WHEEL_Red            = (WHEEL_Dummy+5) ;  { set/get Red               }
  36.     WHEEL_Green          = (WHEEL_Dummy+6) ;  { set/get Green     }
  37.     WHEEL_Blue           = (WHEEL_Dummy+7) ;  { set/get Blue              }
  38.     WHEEL_RGB            = (WHEEL_Dummy+8) ;  { set/get ColorWheelRGB     }
  39.     WHEEL_Screen         = (WHEEL_Dummy+9) ;  { init screen/enviroment    }
  40.     WHEEL_Abbrv          = (WHEEL_Dummy+10);  { "GCBMRY" if English       }
  41.     WHEEL_Donation       = (WHEEL_Dummy+11);  { colors donated by app     }
  42.     WHEEL_BevelBox       = (WHEEL_Dummy+12);  { inside a bevel box        }
  43.     WHEEL_GradientSlider = (WHEEL_Dummy+13);  { attached gradient slider  }
  44.     WHEEL_MaxPens        = (WHEEL_Dummy+14);  { max # of pens to allocate }
  45.  
  46.  
  47. {***************************************************************************}
  48.  
  49. {--- functions in V39 or higher (Release 3) ---}
  50.  
  51. PROCEDURE ConvertHSBToRGB(hsb : ColorWheelHSBPtr; rgb : ColorWheelRGBPtr);
  52.     External;
  53.  
  54. PROCEDURE ConvertRGBToHSB(rgb : ColorWheelRGBPtr; hsb : ColorWheelHSBPtr);
  55.     External;
  56.  
  57.  
  58.  
  59.